tmp <- lik.theta.list[['pop12v3']]$BBlikTest.pooled.df[lik.theta.list[['pop12v3']]$BBlikTest.pooled.df$chi.sq>pop.12v3[,"99.9%"],]
tmp <- merge(tmp,grouse.chick.map,by.x = 'cDNA', by.y= 'grouse.id',all.x=TRUE)
tmp2 <- getBM(attributes=c('ensembl_peptide_id','description'),filters='ensembl_peptide_id',values=tmp$ensembl.id,mart=chicken.mart)
tmp3 <- merge(tmp,tmp2,by.x='ensembl.id',by.y='ensembl_peptide_id',all.x=TRUE)

tmp.new <- lik.theta.list2[['pop12v3']]$BBlikTest.pooled.df[lik.theta.list2[['pop12v3']]$BBlikTest.pooled.df$chi.sq>pop2.12v3[,"99.9%"],]
tmp.new <- merge(tmp.new,grouse.chick.map,by.x = 'cDNA', by.y= 'grouse.id',all.x=TRUE)
tmp2.new <- getBM(attributes=c('ensembl_peptide_id','description'),filters='ensembl_peptide_id',values=tmp.new$ensembl.id,mart=chicken.mart)
tmp3.new <- merge(tmp.new,tmp2.new,by.x='ensembl.id',by.y='ensembl_peptide_id',all.x=TRUE)